home *** CD-ROM | disk | FTP | other *** search
/ Amiga Repair Kit / Amiga Repair Kit.iso / DiskSalv4 / Install < prev    next >
Encoding:
Text File  |  1996-07-11  |  3.7 KB  |  109 lines
  1. ;======================================================================
  2. ;
  3. ; DiskSalv general installer -- $VER: Install 13.0 (24.11.95)
  4. ;
  5. ; 13.0    Moved stuff around for DiskSalv 4 support.
  6. ;
  7. ; 12.0    Moved stuff around for DiskSalv 4 support.
  8. ;
  9. ; 11.5    Added updates for DiskSalv V11.30 distribution, mainly support
  10. ;    for the additional locale files.
  11. ; 11.4    Simple updates for DiskSalv V11.28
  12. ;    Fixed the install-locale-from-archive routine
  13. ; 11.3    Added better checks for the existance of the locales archive
  14. ;
  15. ;======================================================================
  16. ;
  17. ; Some basic strings
  18.  
  19. (set #disksalv-install 
  20.      (cat "\nInstalliere DiskSalv 4..."
  21.           "\n\nDas Programm DiskSalv 4 und einige weitere Dateien "
  22.           "können in einem Verzeichnis Ihrer Wahl installiert werden."
  23.           "\n\nWollen Sie das Programm nun installieren?"))
  24.  
  25. (set #disksalv-install-help
  26.      (cat "\nDieser Installationsschritt läßt Sie auswählen, in "
  27.           "welchem Verzeichnis und auf welchem Laufwerk das Programm "
  28.           "installiert wird."
  29.           "\n\nWenn Sie weitermachen, werden Sie nach dem Pfad gefragt, "
  30.           "unter dem die Programmdaten installiert werden. Wenn Sie diesen "
  31.           "Schritt überspringen, kommen Sie direkt zu Installation des "
  32.           "AmigaGuide-Handbuchs zu DiskSalv 4."))
  33.  
  34. (set #which-disk
  35.      "\nIn welchem Ordner möchten Sie DiskSalv 4 installieren?")
  36.  
  37. (set #docs-install
  38.      (cat "\nInstalliere DiskSalv 4 Dokumentation..."
  39.           "\n\nDas interaktive AmigaGuide-Handbuch für DiskSalv kann "
  40.            "in einem Verzeichnis Ihrer Wahl installiert werden."
  41.           "\n\nWollen Sie damit weitermachen?"))
  42.  
  43. (set #docs-install-help
  44.      (cat "\nDieser Installationsschritt läßt Sie auswählen, in "
  45.           "welchem Verzeichnis und auf welchem Laufwerk das "
  46.           "AmigaGuide-Handbuch installiert wird."
  47.           "\nDas Handbuch sollte in das Programm-Verzeichnis "
  48.           "von DiskSalv 4 oder in den Standard-AmigaGuide-Pfad "
  49.           "installiert werden."
  50.           "\n\nWenn Sie weitermachen, werden Sie nach dem Pfad gefragt, "
  51.           "unter dem das Handbuch installiert wird. Wenn Sie diesen "
  52.           "Schritt überspringen, ist die Installation abgeschlossen."))
  53.  
  54. (set #docs-where
  55.      (cat "\nIn welchem Ordner soll das interaktive AmigaGuide-Handbuch "
  56.           "installiert werden?"))
  57.  
  58. (set #dsdocname      "DiskSalv.guide")
  59.  
  60. ;======================================================================
  61. ;
  62. ; The main program
  63.  
  64. (set inputdir          (pathonly @icon))
  65. (set @default-dest     "SYS:Tools")
  66.  
  67. ; First, install the DiskSalv program proper.
  68.  
  69. (if (askbool (prompt #disksalv-install)
  70.              (help #disksalv-install-help)
  71.              (choices "Ja" "Schritt überspringen")
  72.              (default 1))
  73.  
  74.     ((set outputdir 
  75.           (askdir (prompt  #which-disk)
  76.           (help    @askdir-help)
  77.           (default @default-dest)))
  78.      (set @default-dest outputdir)
  79.      (copyfiles (source inputdir)
  80.                 (dest outputdir)
  81.                 (pattern "DiskSalv")
  82.                 (files)
  83.                 (infos))
  84.      (tooltype  (dest (tackon outputdir "DiskSalv"))
  85.                 (noposition))))
  86.  
  87. ; Next, how about the DiskSalv docs.
  88.  
  89. (if (askbool (prompt #docs-install)
  90.          (help #docs-install-help)
  91.         (choices "Ja" "Schritt überspringen")
  92.          (default 1))
  93.  
  94.     ((set outputdir
  95.           (askdir (prompt  #which-disk)
  96.           (help    @askdir-help)
  97.           (default @default-dest)))
  98.      (set @default-dest outputdir)
  99.      (copyfiles (source inputdir)
  100.                 (dest outputdir)
  101.                 (pattern "DiskSalv.guide")
  102.                 (files)
  103.                 (infos))
  104.      (tooltype  (dest (tackon outputdir "DiskSalv.guide"))
  105.                 (noposition)))
  106.     (set @default-dest ""))
  107.  
  108.  
  109.